Ahoy 1987 February/Ahoy_Magazine_87-02_1987_Double_L.d64/Magic Demo

Commodore BASIC | 2022-10-26 | 4KB | 120 lines

70 printchr$(142)
80 ifa=0thena=1:load"[215]indow [205]agic",8,1
90 sys49152
100 print "[147]";chr$(8)
110 (NULL)(11,5,13): (NULL)
120 cr$=chr$(13)
130 for ct=1 to 2
140 print "     [146]    [146]    [146]  [146]    [146]    [223][146] [169]  [223][146]  [146]    [146]"
150 print "     [146]    [146]   [146]   [223][146]   [146]  [146]   [146]  [146]   [146]  [146]    [146]"
160 print "     [169] [223] [146]   [146]   [146][223][223][146]  [146]  [146]   [146]  [146]   [146]  [169] [223] [146]"
170 print "     [146][169] [223] [146]   [146]   [146] [223][223] [146]  [146]   [146]  [146]   [146]  [146][169] [223] [146]"
180 print "    [169]   [223]    [146]  [146]  [223] [146]    [146][169] [223]  [146][169] [169]   [223]"
190 print
200 print "        [223][146]   [169][146] [169]  [223][146] [169]   [146]    [146] [169]   [146]"
210 print "         [223][146] [169] [146]  [146]   [146]  [146]      [146]   [146]"
220 print "         [146][223] [146][169] [146]     [146]  [146]  [223][146]   [146]   [146]"
230 print "         [146]    [146]  [146]   [146]  [146]   [146]   [146]   [146]"
240 print "         [146]    [146]  [146]   [146] [223]  [146][169]    [146] [223]   [146]"
250 if ct=1 then: (NULL)(2): print
260 next ct: print""
270 a$="   *** window magic ***"+cr$+cr$+"           by"
280 a$=a$+cr$+"     richard f. daley"+cr$+"          and"+cr$
290 a$=a$+"      sally j. daley"+cr$+cr$
300 a$=a$+" copyright 1986[146]"
310 (NULL)(4,6,10,28): (NULL)(0,6,160,160,40,10)
320 for ct=0 to 1000: next: (NULL)(1,a$)
330 for ct=0 to 2000: next: (NULL)(1,0,0,32): (NULL)(11,19,7,9)
340 a$="[144]press the space bar to begin the demo"
350 (NULL)(1,a$)
360 get t$: if t$<>" " then 360
370 (NULL)(1): (NULL)
380 a$="in the following screens, press the space bar"
390 a$=a$+" when you wish to continue."
400 (NULL) (0): (NULL)(4,4,14,12)
410 (NULL)(1,a$)
420 get t$: if t$<>" " then 420
430 a$="[144]window magic adds 11 commands to basic. these 11 commands "
440 a$=a$+"allow you to open and close windows, print messages in a window"
450 a$=a$+", and set window size, color and other parameters."
460 (NULL)(0,2): (NULL)(8,12,12,24)
470 (NULL)(1,a$)
480 get t$: if t$<>" " then 480
490 a$="you'll be amazed at the power of [144]window magic and the professional"
500 a$=a$+" appearance of the programs you write using [144]window magic."
510 (NULL)(0,6): (NULL)(3,6,14,16): (NULL)(1,a$)
520 get t$: if t$<>" " then 520
530 a$="as you can see you can use any character you wish for a border."
540 a$=a$+cr$+cr$+"did your c-64 ever look so good?"
550 (NULL)(0,1,42,32,50,50): (NULL)(4,26,15,12)
560 (NULL)(1,a$)
570 get t$: if t$<>" " then 570
580 a$="[149]you have complete control over the speed used in opening a window."
590 (NULL)(0,9,160,160,255,50): (NULL)(7,2,9,15)
600 (NULL)(1,a$)
610 get t$: if t$<>" " then 610
620 a$="and the printing speed can be fast..."
630 (NULL)(0,9,160,160,50,1): (NULL)(2,a$)
640 for ct=0 to 500: next
650 a$=cr$+"or slooow..."
660 (NULL)(0,2,160,160,50,255): (NULL)(a$)
670 get t$: if t$<>" " then 670
680 a$="[144][146]and how about this effect? the window has a three dimensional"
690 a$=a$+" appearance."
700 (NULL)(1,8,0,32,50,50): (NULL)(12,14,10,14)
710 (NULL)(1,a$)
720 get t$: if t$<>" " then 720
730 a$="now watch this one...press the space bar slowly 7 times."
740 (NULL)(0,0): (NULL)(0,0,25,40)
750 (NULL)(1,a$)
760 get t$: if t$=" " then 760
770 for ct=1 to 7
780 get t$: if t$<>" " then 780
790 (NULL)(3)
800 next
810 for ct=1 to 1000: next
820 a$="another fun command is 'scroll'. to watch this press the"
830 a$=a$+" number keys 1 to 4. when finished press the space bar."
840 (NULL): (NULL)(7,4,15,15): (NULL)(1,2,0,32,40,10)
850 (NULL)(1,a$)
860 get t$: if t$=" " then 910
870 dr=val(t$): if dr<1 or dr>4 then 860
880 for ct=1 to 13: (NULL)(dr,1): next ct
890 (NULL)(2,a$)
900 goto 860
910 (NULL)(3)
920 a$="now we'll look at the menu command. this command will allow you to"
930 a$=a$+" prepare a menu in a window and easily select"
940 a$=a$+" one of the items on that menu."
950 (NULL)(6,7,16,20): (NULL)(1,a$)
960 get t$: if t$<>" " then 960
970 a$="     menu"+cr$+" to select one of"+cr$
980 a$=a$+" the menu items,"+cr$+" use the cursor"+cr$
990 a$=a$+" up and down"+cr$+" keys to move"+cr$
1000 a$=a$+" the marker up or"+cr$+" down. press"+cr$
1010 a$=a$+" return when"+cr$+" the correct"+cr$
1020 a$=a$+" entry is marked."+cr$+" the asterisk"+cr$
1030 a$=a$+" will remain for"+cr$+" four seconds."+cr$
1040 a$=a$+" press 'y' or"+cr$+" or 'n' to"+cr$
1050 a$=a$+" stop the delay."
1060 (NULL)(1,0,0): (NULL)(1,12,19,21)
1070 (NULL)(16,a$,sl)
1080 (NULL)(0,11,0,32,50,50): (NULL)(16,9,5,20)
1090 a$="you selected entry number"+str$(sl)+" on the menu."
1100 (NULL)(1,a$)
1110 get t$: if t$<>" " then 1110
1120 (NULL)(1): (NULL)
1130 a$="this demonstration does not include all of the [144]window magic "
1140 a$=a$+"commands. not specifically demonstrated are the"
1150 a$=a$+" 'box', 'clw', and 'store' commands."
1160 a$=a$+cr$+cr$+"study the this program for more "
1170 a$=a$+"details on making"
1180 for ct=1 to 1000: next
1190 (NULL)(1,6,0): (NULL)(5,4,13,31)
1200 (NULL)(1,a$)
1210 a$="[144]window magic work. press space to end the demo."
1220 (NULL)(a$)
1230 get t$: if t$<>" " then 1230
1240 (NULL)(3): print "";chr$(8)
1250 end